home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / game / patch / InstallKit2_2.lha / ikit2.2 / Install < prev    next >
Text File  |  1980-01-03  |  15KB  |  617 lines
  1. ;
  2. ; Install Kit Installation by Andreas Falkenhahn 1997
  3. ;
  4. ; If you`ve problems editing or using this installer script, e-mail me:
  5. ; softwarefailure@dame.de
  6. ; 
  7. ; August 26th, 1997
  8. ;
  9.  
  10.  
  11. (set #ver "2.2")
  12.  
  13. (message (cat "\n\nInstall Kit V" #ver "\n\n(c) 1996/97 by\n\nAndreas Falkenhahn"
  14.               "\n\nThe ultimate CD32 Games Emulator\n\n&\n\nInstaller"
  15.          )
  16. )
  17.  
  18. (set #lang "Please select the language, you wanna use during the installation.")
  19.  
  20. ; Ask
  21.     (set whatdo (askchoice
  22.   
  23.         (prompt #lang)
  24.         (help   "Select language") 
  25.  
  26.         (choices
  27.  
  28.                     "Deutsch"
  29.                     "English"
  30.         )
  31.     )) 
  32.  
  33. (if (= whatdo 0) (
  34.  
  35.    (set #welcome (cat "\n"
  36.              "Willkommen zum Installationsprogramm für das\n\nInstall Kit"
  37.              "\n\nDieses Programm installiert Ihnen das komplette Install Kit"
  38.              "\noder nur einzelne Teile daraus auf Ihre Festplatte.\n\n"
  39.              "Das Install Kit Paket ist Shareware und kostet 20 DM.\n"
  40.              "Viele Funktionen sind nur eingeschränkt bzw. gar nicht nutzbar. "
  41.                   )
  42.    )
  43.  
  44.   (set #assign (cat "\n"
  45.            "Es müssen 2 Zeilen in Ihre User-Startup eingefügt werden!"
  46.            "\n\nAssign InstallKit: <InstallKit Zielverzeichnis>"
  47.            "\nAssign Kit:        <InstallKit Zielverzeichnis>"
  48.   ))      
  49.   (set #whereinstall "Suchen Sie bitte den Zielpfad für das Install Kit aus! (eine Schublade mit dem Namen InstallKit wird angelegt)")
  50.   (set #libcopy "Kopiere reqtools.library nach libs:...")
  51.   (set #libcopy1 "Kopiere lowlevel.library nach libs:...")
  52.   (set #libcopy2 "Kopiere freeanim.library nach libs:...")
  53.   (set #help (cat "\n"
  54.              "Install Kit Installation (c) A. Falkenhahn 1997\n"
  55.              "===============================================\n\n"
  56.              "Folgende Dinge sollten Sie beachten:\n\n"
  57.              "1) Ich übernehme keinerlei Haftung für irgendwelche\n"
  58.              "   Schäden, die das Install Kit verursacht hat.\n\n"
  59.              "2) Wenn Sie das Install Kit installieren & nutzen\n"
  60.              "   lassen Sie sich bitte registrieren.\n\n"
  61.              "Infos zu den einzelnen Installationsschritten:\n\n"
  62.              "1) Suchen Sie das Verzeichnis aus, in dem das\n"
  63.              "   InstallKit Verzeichnis erstellt werden soll.\n"
  64.              "   alle Dateien werden in das Verzeichnis kopiert.\n"
  65.              "   Außer einige Tools und Dokumentationen, für\n"
  66.              "   diese können Sie dann Extra Verzeichnisse\n"
  67.              "   aussuchen.\n\n"
  68.              "2) Suchen Sie nun die Sprache für die Dokumentation\n"
  69.              "   und das Install Kit aus.\n\n"
  70.              "3) Wählen Sie, ob Sie Userinstaller installiert\n"
  71.              "   haben wollen.\n\n"
  72.              "4) Wählen Sie, ob Sie Developermaterial installiert\n"
  73.              "   haben wollen.\n\n"
  74.              "5) Wählen Sie, ob Sie Bonusprogramme installiert\n"
  75.              "   haben wollen.\n\n"
  76.              "6) Wenn ja, welche.\n\n"
  77.              "7) Wählen Sie, ob ScriptCopy extern installiert werden\n"
  78.              "   soll.\n\n"
  79.              "8) Wählen Sie, ob das Cheat+Info Guide installiert werden\n"
  80.              "   soll.\n\n"
  81.              "9) Wählen Sie, ob der Original Install Kit Bildschirmschoner\n"
  82.              "   installiert werden soll.\n\n"
  83.   ))
  84.  
  85.   (set #diskisfull "Auf diesem Laufwerk ist leider nicht genug Platz!")
  86.   (set #language "Bitte suchen Sie die Sprache für die AmigaGuide® Dokumentation aus!")
  87.   (set #catalog "Bitte suchen Sie die Sprache für das Install Kit aus!")
  88.   (set #where "Wohin soll die AmigaGuide® Dokumentation kopiert werden?")
  89.   (set #ques1 (cat "\n" 
  90.             "Möchten Sie einige Demo-Userinstaller installiert haben"
  91.             "\n(nur nützlich für die registrierte Version) ?"
  92.             "\n\nHinweis: Userinstaller sind Installskripts, die mit dem"
  93.             "\nInstaller Editor erstellt worden sind. Initalisiert und"
  94.             "\nerstellt können Sie nur mit der registrierten Version."
  95.   ))
  96.   (set #ques2 "Möchten Sie Bonusprogramme installieren?")
  97.   (set #ques3 "Soll das Developer Material installiert werden?")
  98.   (set #where1 "Wohin sollen die Bonusprogramme kopiert werden?")
  99.   (set #where2 "Wohin soll das Developer Material kopiert werden?")
  100.   (set #which "Welche Bonusprogramme sollen installiert werden?")
  101.   (set #ques4 "Soll das Cheat+Info Guide mitinstalliert werden?")
  102.   (set #ques5 "Soll ScriptCopy extern installiert werden?")
  103.   (set #where3 "Wohin soll ScriptCopy kopiert werden?")
  104.   (set #ques6 "Soll der Original Install Kit Bildschirmschoner installiert werden?")
  105.   (set #where4 "Wohin soll der Bildschirmschoner kopiert werden?")
  106.   (set #where5 "Wohin soll das Bildschirmschoner Prefsfile kopiert werden?")
  107.   (set #ja "Ja")
  108.   (set #no "Nein")
  109.   (set #te "Test")
  110.   (set #install1 (cat "\n"
  111.                "Bitte warten - das Install Kit wird nun auf Ihrem System installiert!"
  112.                "\n\nBitte unterstützen Sie die Shareware Idee, und lassen Sie sich"
  113.                "\nregistrieren. Die Registrierung kostet 20 DM oder 10 Euros :-)"
  114.                "\n\nBitte senden Sie das Geld mit dem ausgefüllten Registrationsformular an:"
  115.                "\n\nAndreas Falkenhahn\nAn der Trift 2\n36132 Eiterfeld-Arzell\n\nDEUTSCHLAND"
  116.                  )
  117.   )
  118.  
  119.   (set #copy "kopieren")
  120.   (set #ncopy "nicht kopieren")
  121. )) 
  122.  
  123. (if (= whatdo 1) (
  124.  
  125.    (set #libcopy "Copying reqtools.library to libs:...")
  126.    (set #libcopy1 "Copying lowlevel.library to libs:...")
  127.    (set #libcopy2 "Copying freeanim.library to libs:...")
  128.    (set #assign (cat "\n"
  129.                "Two assigns must be added to your S:User-Startup!"
  130.                "\n\nAssign InstallKit: <your destination>"
  131.                "\nAssign Kit: <your destination>"
  132.    ))
  133.  
  134.    (set #install1 (cat "\n"
  135.             "Please wait - the Install Kit is installing..."
  136.             "\n\nPlease support the Shareware idea and register yourself!"
  137.             "\nRegistering costs 20 DM or $15."
  138.             "\n\nPlease send the cash with the filled in Regform to:"
  139.             "\n\nAndreas Falkenhahn\nAn der Trift 2\n36132 Eiterfeld-Arzell\nGERMANY"
  140.    )) 
  141.  
  142.   (set #welcome (cat "\n"
  143.              "Welcome to the installerprogram for the\n\nInstall Kit"
  144.              "\n\nThis program installs the complete Install Kit"
  145.              "\n or only parts of it to your Harddisk.\n\n"
  146.              "The Install Kit package is Shareware and costs $15US.\n"
  147.              "Many options are disabled."
  148.                )
  149.    )
  150.  
  151.   (set #whereinstall "Select destination path (a drawer called InstallKit will be created there)")
  152.   (set #whereinstall_help (cat "\n"
  153.                      "No help available!"
  154.   ))
  155.  
  156.   (set #diskisfull "Not enough free space on this drive!")
  157.   (set #language "Please select language for the AmigaGuide® Documentation!")
  158.   (set #catalog "Please select language for the Install Kit!")
  159.   (set #where "Where shall the AmigaGuide® documentation be copied?")
  160.   (set #ques1 "Shall I install some Demo-Userinstaller (only usable for registered versions) ?")
  161.   (set #ques2 "Shall I install some bonus programs?")
  162.   (set #ques3 "Shall I install the Developer material?")
  163.   (set #where1 "Where shall the bonus programs be copied to?")
  164.   (set #where2 "Where shall the developer material be copied to?")
  165.   (set #which "Which bonus programs shall be copied?")
  166.   (set #ques4 "Shall I install the Cheat+Info guide?")
  167.   (set #ques5 "Shall I install ScriptCopy external?")
  168.   (set #where3 "Where shall ScriptCopy be copied to?")
  169.   (set #ques6 "Shall I install the original Install Kit Screenblanker?")
  170.   (set #where4 "Where shall the screen blanker be copied to?")
  171.   (set #where5 "Where shall the screen blanker prefs be copied to?")
  172.   (set #ja "Yes")
  173.   (set #no "No")
  174.   (set #te "Test")
  175.   (set #copy "copy")
  176.   (set #ncopy "don`t copy")
  177. )) 
  178.  
  179. (message #welcome)
  180.  
  181. (welcome)
  182.  
  183. (complete 10)
  184.  
  185. (set name
  186.         (askdir
  187.                 (prompt #whereinstall)
  188.                 (help   #help)
  189.                 (default "SYS:")
  190.         )
  191. )
  192.  
  193. (complete 15)
  194.  
  195. (if (< (getdiskspace name) 800000)
  196.         (abort #diskisfull)
  197. )
  198.  
  199. (complete 20)
  200.  
  201. (copyfiles
  202.     (source "/IKit2.2.info")
  203.     (dest   name)
  204.     (nogauge)
  205. )
  206.  
  207. (complete 25)
  208.  
  209. (set sstr (substr name (- (strlen name) 1) 1))
  210. (if (or (= sstr "/") (= sstr ":")) (set dname (cat name "IKit2.2")) (set dname (cat name "/IKit2.2")))
  211.  
  212. (set sstr (substr dname (- (strlen dname) 1) 1))
  213. (if (or (= sstr "/") (= sstr ":")) (set doname (cat dname "Docs")) (set doname (cat dname "/Docs")))
  214.  
  215. (set sstr (substr dname (- (strlen dname) 1) 1))
  216. (if (or (= sstr "/") (= sstr ":")) (set dirname (cat dname "Bonus")) (set dirname (cat dname "/Bonus")))
  217.  
  218. (set sstr (substr dname (- (strlen dname) 1) 1))
  219. (if (or (= sstr "/") (= sstr ":")) (set diname (cat dname "Daten")) (set diname (cat dname "/Daten")))
  220. (working #install1)
  221.  
  222. (copyfiles
  223.     (source "kit")
  224.     (dest dname)
  225.     (nogauge)
  226. )
  227.  
  228. (complete 30)
  229.  
  230. (copyfiles
  231.     (source "InstallKit")
  232.     (dest dname)
  233.     (nogauge)
  234. )
  235.  
  236. (complete 32)
  237.  
  238. (copyfiles
  239.     (source "InstallKit.info")
  240.     (dest dname)
  241.     (nogauge)
  242. )
  243.  
  244. (complete 35)
  245.  
  246. (MakeAssign "doc1" dname)
  247. (MakeDir "doc1:Daten")
  248. (MakeDir "doc1:Daten/Data")
  249.  
  250. (complete 40)
  251.  
  252. (copyfiles
  253.     (source "Daten/Data")
  254.     (dest   "doc1:Daten/Data")
  255.     (nogauge)
  256.     (all)
  257. )
  258.  
  259. (complete 45)
  260.  
  261. (MakeDir "doc1:Docs")
  262.  
  263. (complete 50)
  264.  
  265. (copyfiles
  266.      (source "Docs.info")
  267.      (dest dname)
  268.      (nogauge)
  269. )
  270.   
  271. (complete 55)
  272.  
  273. (set langu1 (askchoice
  274.  
  275.          (prompt #language)
  276.          (help   "No help")
  277.  
  278.          (choices
  279.  
  280.                   "deutsch"
  281.                   "english"
  282.  
  283.          )
  284.  
  285. ))
  286.  
  287. (set doc (askdir
  288.  
  289.             (prompt #where)
  290.             (help "No help")
  291.             (default doname)
  292.          
  293. )) 
  294.        
  295. (complete 60)
  296.  
  297. (if (= langu1 0) (
  298.  
  299.    (working #install1) 
  300.  
  301.    (copyfiles
  302.          (source "Docs/InstallKit_deutsch.guide")
  303.          (dest doc)
  304.          (nogauge)
  305.    )
  306.  
  307.    (copyfiles
  308.         (source "Docs/InstallKit_deutsch.guide.info")
  309.         (dest doc)
  310.         (nogauge)
  311.    )
  312.  
  313. ))
  314.  
  315. (if (= langu1 1) (
  316.  
  317.   (working #install1) 
  318.  
  319.    (copyfiles
  320.          (source "Docs/InstallKit_english.guide")
  321.          (dest doc)
  322.          (nogauge)
  323.    )
  324.  
  325.    (copyfiles
  326.         (source "Docs/InstallKit_english.guide.info")
  327.         (dest doc)
  328.         (nogauge)
  329.    )
  330.  
  331. ))
  332.  
  333. (complete 65)
  334.  
  335. (if (= langu1 2) (
  336.   (working #install1) 
  337.  
  338.    (copyfiles
  339.          (source "Docs/InstallKit_nederlands.gui")
  340.          (dest doc)
  341.          (nogauge)
  342.    )
  343.  
  344.    (copyfiles
  345.         (source "Docs/InstallKit_nederlands.gui.info")
  346.         (dest doc)
  347.         (nogauge)
  348.    )
  349.  
  350. ))
  351.  
  352. (if (= langu1 3) (
  353.   (working #install1) 
  354.  
  355.    (copyfiles
  356.          (source "Docs/InstallKit_srpski.guide")
  357.          (dest doc)
  358.          (nogauge)
  359.    )
  360.  
  361.    (copyfiles
  362.         (source "Docs/InstallKit_srpski.guide.info")
  363.         (dest doc)
  364.         (nogauge)
  365.    )
  366.  
  367. ))
  368.  
  369. (if (= langu1 4) (
  370.   (working #install1) 
  371.  
  372.    (copyfiles
  373.          (source "Docs/InstallKit_finnish.guide")
  374.          (dest doc)
  375.          (nogauge)
  376.    )
  377.  
  378.    (copyfiles
  379.         (source "Docs/InstallKit_finnish.guide.info")
  380.         (dest doc)
  381.         (nogauge)
  382.    )
  383.  
  384. ))
  385.  
  386. (complete 70)
  387.  
  388. (if (= 1 (askbool (prompt #ques1) (help "No help")))
  389.  
  390. (
  391.  (
  392.   (working #install1)
  393.   (MakeDir "doc1:Daten/User")
  394.   (copyfiles
  395.       (source "Daten/User")
  396.       (dest   "doc1:Daten/User")
  397.       (nogauge)
  398.       (all)
  399.   )  
  400.  ))
  401. )      
  402.  
  403. (if (= 1 (askbool (prompt #ques2) (help "No help")))
  404.  
  405. (
  406.  (
  407.   (makedir "doc1:Bonus")
  408.   (copyfiles
  409.      (source "Bonus.info")
  410.      (dest   dname)
  411.      (nogauge)
  412.   )
  413.   
  414.   (set bdir
  415.       (askdir
  416.           (prompt #where1)
  417.           (help "No help")
  418.           (default dirname)
  419.   )) 
  420.   (working #install1)
  421.   (makedir "T:Kit")
  422.   (copyfiles
  423.      (source "Bonus/CD32Boot")
  424.      (dest   "T:Kit")
  425.      (nogauge)
  426.   )
  427.   (copyfiles
  428.      (source "Bonus/CD32Boot.info")
  429.      (dest   "T:Kit")
  430.      (nogauge)
  431.   )
  432.   (copyfiles
  433.      (source "Bonus/ChangeIcons")
  434.      (dest   "T:Kit")
  435.      (nogauge)
  436.   )
  437.   (copyfiles
  438.      (source "Bonus/ChangeIcons.info")
  439.      (dest   "T:Kit")
  440.      (nogauge)
  441.   )
  442.   (copyfiles
  443.      (source "Bonus/Installer2Disk")
  444.      (dest   "T:Kit")
  445.      (nogauge)
  446.   )
  447.   (copyfiles
  448.      (source "Bonus/Installer2Disk.info")
  449.      (dest   "T:Kit")
  450.      (nogauge)
  451.   )
  452.  (copyfiles
  453.      (source "Bonus/Disk2Installer.info")
  454.      (dest   "T:Kit")
  455.      (nogauge)
  456.   )
  457.   (copyfiles
  458.      (source "Bonus/De-InstallKit.info")
  459.      (dest   "T:Kit")
  460.      (nogauge)
  461.   )
  462.   (copyfiles
  463.      (source "Bonus/Disk2Installer")
  464.      (dest   "T:Kit")
  465.      (nogauge)
  466.   )
  467.   (copyfiles
  468.      (source "Bonus/De-InstallKit")
  469.      (dest   "T:Kit")
  470.      (nogauge)
  471.   )
  472.  
  473. (
  474.   (copyfiles (prompt #which)
  475.   (help "No help")
  476.   (source "T:Kit")
  477.   (dest bdir)
  478.   (optional "nofail")
  479.   (confirm "average")
  480.   (files)
  481.   (infos)
  482.   (all)
  483.  )
  484. ))))
  485.  
  486. (complete 80)
  487.  
  488. (if (= 1 (askbool (prompt #ques5) (help "No help")))
  489.  
  490. (
  491.  (
  492.   (set sc (askdir
  493.          (prompt #where3)
  494.          (help   "No help")
  495.          (default "C:")
  496.   ))
  497.  
  498.  (copyfiles
  499.     (source "Daten/Data/ScriptCopy")
  500.     (dest   sc)
  501.     (nogauge)
  502.  )
  503. )))
  504.  
  505. (complete 85)
  506.  
  507. (if (= 1 (askbool (prompt #ques6) (help "No help")))
  508. (
  509.  (
  510.   (set sb (askdir
  511.          (prompt #where4)
  512.          (help   "No help")
  513.          (default "Sys:WBStartup")
  514.   ))
  515.  
  516.   (copyfiles
  517.      (source "Bonus/Blanker/InstallKit_Blanker")
  518.      (dest   sb)
  519.      (infos)
  520.      (nogauge)       
  521.   )
  522.  
  523.   (set sbp (askdir
  524.           (prompt #where5)
  525.           (help   "No help")
  526.           (default "Sys:Prefs")
  527.   ))
  528.   
  529.   (copyfiles
  530.      (source "Bonus/Blanker/InstallKit_BlankerPrefs")
  531.      (dest   sbp)
  532.      (infos)
  533.      (nogauge)
  534.   ) 
  535.  
  536. )))
  537.  
  538. (complete 90)
  539.  
  540. (copylib
  541.   (prompt #libcopy)
  542.   (help   "no help")
  543.   (source "libs/reqtools.library")
  544.   (dest   "LIBS:")
  545.   (optional force askuser)
  546.   (confirm)
  547. )
  548.  
  549. (complete 92)
  550.  
  551. (copylib
  552.   (prompt #libcopy1)
  553.   (help   "No help")
  554.   (source "libs/lowlevel.library")
  555.   (dest   "LIBS:")
  556.   (optional force askuser)
  557.   (confirm)
  558. )
  559.  
  560. (complete 94)
  561.  
  562. (copylib
  563.    (prompt #libcopy2)
  564.    (help   "No help")
  565.    (source "libs/freeanim.library")
  566.    (dest   "LIBS:")
  567.    (optional force askuser)
  568.    (confirm)
  569. )
  570.  
  571. (complete 95)
  572.  
  573. (copyfiles
  574.    (source "daten/data/REST")
  575.    (dest   "C:")
  576.    (nogauge)
  577. ) 
  578.  
  579. (complete 96)
  580.  
  581. (copyfiles
  582.    (source "daten/data/RSTStart")
  583.    (dest   "C:")
  584.    (nogauge)
  585. )
  586.  
  587. (complete 97)
  588.  
  589. (copyfiles
  590.    (source "devs/RSTMountlist")
  591.    (dest   "devs:")
  592.    (nogauge)
  593. )
  594.  
  595. (complete 98)
  596.  
  597. (copyfiles
  598.    (source "devs/InstallKitMountlist")
  599.    (dest   "devs:")
  600.    (nogauge)
  601. )
  602.  
  603. (complete 99)
  604.  
  605. (startup (prompt #assign) (help "No help")
  606.  
  607.           "InstallKit"
  608.           (command (cat "\n"
  609.               "Assign InstallKit: " dname "\n"
  610.               "Assign Kit: " diname
  611.           )
  612. ))
  613.  
  614. (complete 100)
  615.  
  616. (exit)
  617.